0 A=A+1:IFA=1THENLOAD"PGM.BIN",8,1
1 IFA=2THENLOAD"SPR",8,1
2 POKE55,255:POKE56,131:CLR:BA=33792:DP=BA+3:SA=BA+6:BS=BA+9:BL=BA+12:DS=BA+15:FM=BA+18:XF=BA+21:HO=BA+24:HF=BA+27:MO=BA+30:MF=BA+33:CE=BA+36:CD=BA+39:DC=BA+42:UC=BA+45:CW=BA+48:RW=BA+51:PL=BA+54:UP=BA+57:DR=BA+60:UD=BA+63:BF=BA+66:SB=BA+69:BR=BA+72:SE=BA+75
29 FS=BA+78:SO=BA+81:SD=BA+84:SP=BA+87:SR=BA+90:RS=BA+93:SX=BA+96:AN=BA+99:CA=BA+102:JO=BA+105:JF=BA+108:WC=BA+111:RW=BA+114:FW=BA+117:RD=BA+120:SYSSA,57344,52224:SYSBA:SYSHO:SYSSE:POKE53280,0:POKE53281,0:RA=0:IFPEEK(49167)<>7ORPEEK(49170)<>7ORPEEK(49173)<>4THENSYSBL,49152,"SPR,P
53 AD[178][194](781)[170][194](782)[172]256:SD[178]54272:[158]CD,55296,1,1,"STOPLOAD":[158]DR,100,0,319,0,1,0:[158]DR,319,0,319,199:[158]DR,319,199,100,199:[158]DR,100,199,100,0:[158]DR,240,199,240,125:[158]DR,240,125,319,100:[158]DR,160,0,165,7:[158]DR,165,7,185,7:[158]DR,185,7,190,0:[158]DR,185,7,185,30
75 [158]DR,165,7,165,30:[158]DR,165,30,160,35:[158]DR,185,30,190,35:[129]T[178]319[164]190[169][171]5:[158]DR,T[171]5,22,T,22:[158]DR,T[171]5,26,T,26:[130]:[158]DR,189,22,185,22:[158]DR,189,26,185,26:[158]DR,319,23,186,23:[158]DR,319,25,186,25:[158]DR,319,24,186,24:[129]C[178]10[164]1[169][171]1:[158]DR,319,22,186,22,C,0:[158]DR,319,26,186,26,C,0:[130]
100 [129]T[178]22[164]26:[158]UD,318,T,186,T:[130]:[129]T[178]185[164]165[169][171]1:[158]DR,T,8,T,30,1,0:[130]:[129]C[178]10[164]1[169][171]1:[141]9100:[129]T[178]184[164]166[169][171]3:[158]DR,T,8,T,30,C,0:[130]:[130]:[158]BA[170]3[172]28,0,0,0,0,0,1:[158]BA[170]3[172]29,0,195,60,5:[158]BA[170]3[172]27,1,0:[129]T[178]184[164]166[169][171]1:[158]UD,T,8,T,30:[130]:[129]U[178]1[164]250:[130]:X[178]195:R[178]0:PT[178]8:[129]Y[178]60[164]232[169]4:[141]9000:[130]
135 PT[178]5:Y[178]232:[141]9000:[129]U[178]1[164]250:[130]:PT[178]7:[141]9000:[129]U[178]1[164]250:[130]:PT[178]6:[141]9000:[158]DR,0,99,100,199:[129]T[178]98[164]80[169][171]1:[158]DR,0,T,100,T[170]100:[158]UD,0,T,100,T[170]100:[130]:[158]DR,0,T,100,T[170]100:FR[178]195:TM[178]116:SL[178][171]3:MN[178]20:MX[178]24:[141]7000:FR[178]116:TM[178]24:SL[178][171]3:RA[178][171]3.0:MN[178]20:MX[178]24:[141]7000:[158]BA[170]81,0,0
180 [158]CD,55296,1,1,"STOPLOAD":[158]DR,319,199,270,150:[158]DR,270,150,0,150:[158]DR,319,179,270,130:[158]DR,270,130,80,130:[158]DR,80,130,0,0:X[178]333:Y[178]229:[141]9000:[158]BA[170]81,1,0:FR[178]333:TM[178]289:SL[178][171]3:RA[178][171]3:MN[178]20:MX[178]24:[141]7000:FR[178]289:TM[178]24:SL[178][171]3:RA[178]0:MN[178]20:MX[178]24:[141]7000:[158]BA[170]81,0,0
230 [158]CD,55296,1,1,"STOPLOAD":[158]DR,319,150,160,150:[158]DR,160,150,109,199:[158]DR,0,75,190,75:[158]DR,190,75,100,0:X[178]320:Y[178]183:[141]9000:[158]BA[170]81,1,0:FR[178]320:TM[178]175:SL[178][171]3:RA[178]0:MN[178]20:MX[178]24:[141]7000:PT[178]25:[141]9000:FR[178]175:TM[178]125:SL[178][171]3:RA[178]3:MN[178]25:MX[178]25:[141]7000:[158]BA[170]81,0,0
270 [158]CD,55296,1,1,"STOPLOAD":[158]DR,100,0,100,50:[158]DR,100,50,0,50:[158]DR,319,0,120,199:[158]DR,120,199,0,199:X[178]320:Y[178]50:[141]9000:[158]BA[170]81,1,0:FR[178]319:TM[178]222:SL[178][171]3:RA[178]3:MN[178]25:MX[178]25:[141]7000:[158]UD,219,100,189,130:[141]4005:[158]DR,219,100,319,199:[158]DR,189,130,258,199:PT[178]8:[141]9000
305 [129]Y[178]147[164]180[169]3:[141]9000:[130]:FR[178]222:TM[178]270:SL[178]3:RA[178]3:MN[178]4:MX[178]4:[141]7000:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,70,0,145,75:[158]DR,100,0,175,75:[158]DR,145,75,140,80:[158]DR,175,75,180,80:[158]DR,140,80,140,199:[158]DR,180,80,180,199:[158]DR,142,125,178,125:[158]DR,160,125,160,199
345 X[178]100:Y[178]50:PT[178]4:[141]9000:[158]BA[170]81,1,0:FR[178]100:TM[178]170:SL[178]3:RA[178]3:MN[178]4:MX[178]4:[141]7000:PT[178]8:[141]9000:[129]Y[178]120[164]158[169]3:[141]9000:X[178]X[170].75:[130]:PT[178]5:[141]9000:[129]U[178]1[164]500:[130]:[129]YY[178]125[164]199[169]4:[158]DR,142,YY,178,YY:[158]UD,160,YY,160,YY[171]4:[158]UD,142,YY,178,YY:Y[178]Y[170]4:[141]9000:[130]:[158]BA[170]81,0,0
385 [158]CD,55296,1,1,"STOPLOAD":[158]DR,140,0,140,125:[158]DR,140,125,0,125:[158]DR,0,150,140,150:[158]DR,140,150,140,199:[158]DR,180,0,180,199:[158]DR,160,25,160,199:[158]DR,142,25,178,25:X[178]179:Y[178]59:PT[178]5:[141]9000:[158]BA[170]81,1,0:[129]YY[178]25[164]146[169]4:[158]DR,142,YY,178,YY:[158]UD,160,YY,160,YY[171]4
420 [158]UD,142,YY,178,YY:Y[178]Y[170]4:[141]9000:[130]:[158]DR,142,YY,178,YY:[158]UD,160,YY[171]1,160,YY[171]4:PT[178]6:[141]9000:[158]DR,180,151,319,151:[158]DR,140,125,140,150:[158]UD,180,125,180,150:[158]UD,0,125,139,125:[158]UD,0,150,139,150:[158]DR,180,125,319,125:[158]DR,180,150,319,150
435 [158]DR,180,125[170](150[171]YY),319,125[170](150[171]YY):[158]UD,0,150,139,150:PT[178]7:[141]9000:[129]U[178]1[164]300:[130]:FR[178]179:TM[178]320:SL[178]3:MN[178]15:MX[178]19:RA[178]0:Y[178]184:[141]7000:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,0,170,80,170:[158]DR,80,170,100,150:[158]DR,100,150,240,150
485 [158]DR,240,150,260,130:[158]DR,260,130,319,130:[158]DR,0,130,70,130:[158]DR,70,130,90,110:[158]DR,90,110,230,110:[158]DR,230,110,250,90:[158]DR,250,90,319,90:X[178]024:Y[178]203:[141]9000:[158]BA[170]81,1,0:FR[178]24:TM[178]100:SL[178]3:MN[178]15:MX[178]19:RA[178]0:Y[178]203:[141]7000
515 FR[178]100:TM[178]116:SL[178]3:MN[178]15:MX[178]19:RA[178][171]3:[141]7000:FR[178]116:TM[178]255:SL[178]3:MN[178]15:MX[178]19:RA[178]00:Y[178]Y[171]2:[141]7000:FR[178]257:TM[178]276:SL[178]3:MN[178]15:MX[178]19:RA[178][171]3:Y[178]Y[170]2:[141]7000:FR[178]276:TM[178]320:SL[178]3:MN[178]15:MX[178]19:RA[178]00:[141]7000:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD
550 SYSDR,0,120,200,120:SYSDR,200,120,200,0:SYSDR,240,0,240,199:SYSDR,0,150,207,150:SYSDR,207,150,200,155:SYSDR,200,155,200,199:X=24:Y=183:GOSUB9000:SYSBA+81,1,0:FR=24:TM=220:Y=183:RA=0:SL=3:MN=15:MX=19:GOSUB7000:PT=5:X=221:GOSUB9000:FORU=1TO250:NEXT:PT=7:GOSUB9000:FORU=1TO250:NEXT
575 SYSCD,55296,16,25,"?":FORU=1TO500:NEXT:SYSCD,55296,16,25," ":C=1:FORYY=199TO150STEP-1:SYSDR,208,YY,229,YY,C,0:SYSUD,208,YY,229,YY:C=C+1:IFC>10THENC=1
590 NEXT:FORC=1TO10:SYSDR,208,150,229,150:NEXT:FR=223:TM=237:RA=0:SL=2:MN=0:MX=3:GOSUB7000:PT=5:Y=Y+1:GOSUB9000:C=1:FORYY=150TO20STEP-2:SYSDR,208,YY,229,YY,C,0:SYSUD,208,YY,229,YY:C=C+1:IFC>10THENC=1
615 Y=Y-2:GOSUB9000:NEXT:SYSBA+81,0,0:SYSCD,55296,1,1,"[144][147]":SYSDR,30,199,30,40,1,0:SYSDR,30,40,65,20:SYSDR,65,20,319,20:SYSDR,80,199,80,55:SYSDR,80,55,73,50:SYSDR,73,50,319,50:X=80:Y=223:PT=5:GOSUB9000:SYSBA+81,1,0:C=1:FORYY=190TO50STEP-2:SYSDR,54,YY,72,YY,C,0:SYSUD,54,YY,72,YY
655 C=C+1:IFC>10THENC=1
660 Y=Y-2:GOSUB9000:NEXT:FORC=10TO1STEP-1:SYSDR,54,50,72,50,C,0:NEXT:Y=Y+3:FR=80:TM=100:SL=2:MN=0:MX=3:RA=0:GOSUB7000:PT=5:GOSUB9000:C=1:FORYY=50TO199STEP2:SYSDR,54,YY,72,YY,C,0:SYSUD,54,YY,72,YY:C=C+1:IFYY=60THENSYSDR,73,50,73,50,1,0
685 IFC>10THENC=1
690 NEXT:FR=100:TM=320:SL=3:RA=0:MN=15:MX=19:GOSUB7000:SYSBA+81,0,0:SYSCD,55296,1,1,"[144][147]":SYSDR,0,30,230,30,1,0:SYSDR,0,50,205,50:SYSDR,230,30,250,35:SYSDR,250,35,250,60:SYSDR,225,50,230,50:SYSDR,230,50,230,60:SYSDR,230,60,250,60,6,0:SYSDR,230,60,230,199:SYSDR,250,60,250,199
730 FORXX=205TO225STEP4:SYSDR,XX,50,XX+2,50,2,0:NEXT:SYSDR,215,180,210,199,2,0:SYSDR,215,180,220,199:Y=84:X=24:GOSUB9000:SYSBA+81,1,0:FR=24:TM=230:SL=3:MN=15:MX=19:RA=0:GOSUB7000:X=235:PT=5:GOSUB9000:FORU=1TO300:NEXT:PT=7:GOSUB9000:FORU=1TO500:NEXT:SYSDR,215,180,215,50,2,0:GOSUB4045:SYSUD,215,180,215,50
760 FR=235:TM=245:SL=1:MN=8:MX=11:RA=-1:GOSUB7000:FR=245:TM=255:SL=1:MN=8:MX=11:RA=2:GOSUB7000:X=X+3:FORY=95TO100:PT=10:GOSUB9000:NEXT:GOSUB4005:FORY=100TO110:PT=10:GOSUB9000:NEXT:FR=258:TM=259:SL=.03:RA=3:MN=26:MX=27:GOSUB7000:SYSBA+81,0,0:SYSCD,55296,1,1,"[144][147]
805 [158]DR,170,0,170,130,6,0:[158]DR,170,130,0,130:[158]DR,0,170,170,170:[158]DR,170,170,170,199:[158]DR,200,199,200,0:X[178]205:Y[178]50:[141]9000:[158]BA[170]81,1,0:FR[178]205:TM[178]206:SL[178].022:RA[178]3:MN[178]26:MX[178]27:[141]7000:FR[178]206:TM[178]24:SL[178][171]3:RA[178]0:MN[178]28:MX[178]29:[141]7000:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD
850 SYSDR,0,130,140,130,6,0:SYSDR,140,130,140,110,1,0:SYSDR,140,110,180,110:SYSDR,180,110,180,130:SYSDR,180,130,319,130,6,0:SYSDR,0,170,319,170,6,0:SYSDR,140,130,180,130,6,0:SYSDR,140,110,140,110,1,0:SYSCD,55296,14,18,"AIR":X=320:Y=188:GOSUB9000:SYSBA+81,1,0
875 FR=320:TM=200:SL=-3:RA=0:MN=28:MX=29:GOSUB7000:FR=200:TM=180:SL=-3:RA=-3:MN=28:MX=29:GOSUB7000:FORU=1TO1000:NEXT:FR=180:TM=160:SL=-3:RA=3:MN=28:MX=29:GOSUB7000:FR=160:TM=24:SL=-3:RA=0:MN=28:MX=29:GOSUB7000:SYSBA+81,0,0:SYSCD,55296,1,1,"[144][147]
910 [158]DR,0,130,85,130,1,0:[158]DR,85,130,319,130,6,0:[158]DR,0,170,85,170,1,0:[158]DR,85,170,319,170,6,0:[129]XX[178]80[164]85:[158]DR,XX,130,XX,170,1,0:[130]:[158]DR,93,169,93,165,2,0:X[178]320:Y[178]188:[141]9000:[158]BA[170]81,1,0:FR[178]320:TM[178]125:SL[178][171]3:MN[178]28:MX[178]29:RA[178]0:[141]7000
930 FR[178]125:TM[178]112:SL[178][171]2:MN[178]28:MX[178]29:RA[178]2:[141]7000:[158]UD,93,169,93,165:[158]DR,93,169,91,167,2,0:[158]UD,93,169,91,167:[158]DR,93,169,89,169,2,0:[129]XX[178]120[164]125:[158]DR,XX,130,XX,170,1,0:[130]:[129]YY[178]131[164]136:[158]DR,88,YY,119,YY,6,0:[158]UD,88,YY,119,YY:[130]:[158]DR,85,130,120,130,1,0
955 [129]YY[178]136[164]160:[158]DR,88,YY,119,YY,6,0:[158]UD,88,YY,119,YY:[130]:PT[178]30:[141]9000:[129]YY[178]160[164]167:[158]DR,88,YY,119,YY,6,0:[158]UD,88,YY,119,YY:Y[178]Y[170]1:[141]9000:[130]:[158]DR,85,170,120,170,1,0:[129]XX[178]85[164]80[169][171]1:[158]UD,XX,131,XX,169:[130]:PT[178]5:[141]9000:Y[178]Y[171]7:FR[178]X:TM[178]24:SL[178][171]3:MN[178]20:MX[178]24:RA[178]0:[141]7000
995 [158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,0,130,319,130,1,0:[158]DR,0,170,140,170:[158]DR,140,170,140,199:[158]DR,180,170,180,199:[158]DR,180,170,319,170:[158]DR,160,130,160,199:X[178]320:Y[178]203:[141]9000:[158]BA[170]81,1,0:FR[178]320:TM[178]200:SL[178][171]3:MN[178]20:MX[178]24:RA[178]0:[141]7000
1025 PT[178]31:[129]X[178]200[164]181[169][171]1:Y[178]Y[171].5:[141]9000:[130]:FR[178]181:TM[178]182:SL[178].06:MN[178]31:MX[178]32:RA[178]3:[141]7000:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,0,130,140,130,1,0:[158]DR,140,130,140,0:[158]DR,160,0,160,140:[158]DR,180,0,180,130:[158]DR,180,130,319,130:[158]DR,0,170,319,170
1060 X[178]181:Y[178]50:[141]9000:[158]BA[170]81,1,0:FR[178]181:TM[178]182:SL[178].025:MN[178]31:MX[178]32:RA[178]3:[141]7000:[129]U[178]1[164]250:[130]:[129]Y[178]190[164]202:PT[178]8:[141]9000:[130]:PT[178]5:[141]9000:[129]U[178]1[164]500:[130]:PT[178]6:[141]9000:[129]U[178]1[164]500:[130]:PT[178]7:[141]9000:[129]U[178]1[164]500:[130]:[129]I[178]1[164]5:[158]CD,55296,19,30,"->":[129]U[178]1[164]50:[130]:[158]CD,55296,19,30,"  ":[129]U[178]1[164]50:[130]:[130]
1095 FR[178]181:TM[178]260:SL[178]3:MN[178]15:MX[178]19:RA[178]0:[141]7000:[158]UD,230,170,250,170:[141]4005:[158]DR,230,170,230,199:[158]DR,250,170,250,199:PT[178]8:[129]Y[178]202[164]229[169]2:[141]9000:[130]:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,150,0,150,100:[158]DR,170,0,170,100:[158]DR,170,100,210,100
1130 [158]DR,150,100,110,100:[158]DR,110,100,110,150:[158]DR,110,150,210,150:[158]DR,210,150,210,100:PT[178]8:X[178]177:Y[178]50:[141]9000:[158]BA[170]81,1,0:[129]Y[178]50[164]183[169]2:[141]9000:[130]:Y[178]183:PT[178]33:[141]9000:[141]4035:PT[178]5:[141]9000:[129]U[178]1[164]200:[130]:[129]YY[178]101[164]135:[158]DR,111,YY,209,YY:[158]UD,111,YY,209,YY:[130]
1165 PT[178]8:[141]9000:[129]YY[178]135[164]136:[158]DR,111,YY,209,YY:[130]:[129]U[178]500[164]1[169][171]15:[129]T[178]1[164]U:[130]:[141]9100:[130]:[158]UD,150,150,170,150:[141]4005:[158]DR,150,150,150,199:[158]DR,170,150,170,199:[129]Y[178]183[164]229[169]2:[141]9000:[130]:[158]BA[170]81,0,0:[158]CD,55296,1,1,"STOPLOAD":[158]DR,150,0,150,130:[158]DR,150,130,0,130:[158]DR,170,0,170,130
1205 [158]DR,170,130,175,135:[158]DR,175,135,175,150:[158]DR,175,150,0,150:X[178]177:Y[178]50:PT[178]8:[141]9000:[158]BA[170]81,1,0:[129]Y[178]50[164]183[169]3:[141]9000:[130]:PT[178]33:[141]9000:[141]4035:[129]U[178]1[164]200:[130]:PT[178]5:[141]9000:[129]U[178]1[164]200:[130]:PT[178]6:[141]9000:[129]U[178]1[164]200:[130]:Y[178]Y[171]2:FR[178]177:TM[178]24:SL[178][171]3:MN[178]20:MX[178]24:RA[178]0:[141]7000:[158]BA[170]81,0,0
1235 [158]CD,55296,1,1,"STOPLOAD":[158]DR,0,130,319,130:[158]DR,0,130,0,150:[158]DR,0,150,319,150:[158]DR,10,130,15,139:[129]T[178]15[164]17:[158]DR,T,139,T,141:[130]:[129]T[178]10[164]15:[158]DR,10,150,T,141:[130]:[129]T[178]10[164]15:[158]DR,10,130,T,139:[130]:[129]T[178]0[164]10:[158]DR,T,130,T,150:[130]:[129]T[178]139[164]141:[158]DR,10,T,17,T:[130]
1265 [158]DR,80,150,80,145:[158]DR,80,145,90,145:[158]DR,90,145,95,150:X[178]320:Y[178]183:[141]9000:[158]BA[170]81,1,0:FR[178]320:TM[178]110:SL[178][171]3:MN[178]20:MX[178]24:RA[178]0:[141]7000:FR[178]110:TM[178]105:SL[178][171]3:MN[178]20:MX[178]24:RA[178][171]1.5:[141]7000:FR[178]105:TM[178]100:SL[178][171]3:MN[178]20:MX[178]24:RA[178]0:[141]7000
1290 Y[178]178:PT[178]5:[141]9000:[129]U[178]1[164]500:[130]:PT[178]6:[141]9000:[129]C[178]15[164]1[169][171]1:[158]DR,0,135,12,135,C,0:[158]DR,0,140,16,140:[158]DR,0,145,12,145:[141]9100:[129]U[178]1[164]100:[130]:[130]:[129]C[178]8[164]1[169][171]1:[158]DR,18,140,85,140,C,0:[141]4045:[130]:[158]UD,18,140,85,140:[129]U[178]1[164]200:[130]:[158]BA[170]81,0,0:[158]CD,55296,5,13,"INPUTDIM(null)HE VALNDGOTORUN
1330 SYSCD,55296,8,7,"[208]RESS ANY KEY TO CONTINUE.":POKE198,.:WAIT198,1:SYSHF:SYSDP:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15:PRINT"[147]";:IFER<>63THENEND
1369 POKE178,13
1370 LOAD"HELLO CONNECT",8
4005 S=54272:POKES+24,15:POKES+5,190:POKES+6,25:FORZ=127TO10STEP-17:POKES+1,2*Z:POKES+1,129-Z:POKES+4,17:FORL=1TO4:NEXT:POKES+1,4:NEXT:POKES+4,16:RETURN:S=54272:POKES+24,15:POKES+6,240:POKES+4,17:FORLA=1TO2:FORLX=255TO1STEP-55:POKES+1,LX/2:POKES+1,255-LX/2:NEXT:NEXT:POKES+4,16:RETURN
4025 S=54272:POKES+24,15:POKES+6,240:POKES+4,17:FORVX=1TO255STEP25:POKES+1,VX/2:NEXT:POKES+4,16:RETURN
4035 S=54272:POKES+5,9:POKES+6,9:POKES+24,15:POKES+4,17:FORLD=1TO40:POKES+1,62-LD:POKES+4,17:NEXT:POKES+4,16:RETURN
4045 S=54272:POKES+1,14:POKES+5,3:POKES+6,255-15:POKES+24,15:POKES+4,17:FORLD=40TO1STEP-2:POKES+1,40-LD:POKES+4,17:NEXT:FORLD=1TO40STEP2:POKES+1,40-LD:POKES+4,17:NEXT:RETURN
6999 GOTO6999
7000 Z=0:R=0:PT=MN:FORF=FRTOTMSTEPSL:Z=Z+1:IFZ<3THEN7020
7010 IFPT<MXTHENPT=PT+1:Z=0:GOTO7020
7015 PT=MN:Z=0
7020 X=F:Y=Y+RA:GOSUB9000:IFPT=15ORPT=20ORPT=18ORPT=23THENGOSUB9100
7021 IFPT>14ANDPT<25THENZ=2
7025 NEXT:RETURN
9000 SYSBA+3*29,R,X,Y,PT:RETURN
9100 POKESD+24,.:POKESD+24,15:RETURN